home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / WIN / VB_DB / PROFIT.ZIP / SALESMIX.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-03-17  |  3.7 KB  |  120 lines
  1.    '****************************************************************
  2.    '*    Sales Mix file type                                   *
  3.    '****************************************************************
  4.  
  5.     Type SalesMixType
  6.         RecNo            As String * 6
  7.         ServingsSold     As Long
  8.     End Type
  9.  
  10.  
  11.     Global SalesMixRec As SalesMixType
  12.     Global SalesMixSaveRec As SalesMixType
  13.     Global SalesMixSt%
  14.     Global SalesMixKeyB$
  15.     Global SalesMixPosBlk As PosBlk
  16.  
  17.  
  18. Sub CloseSalesMixFile ()
  19.     SalesMixKeyBufLen% = 255
  20.     SalesMixBufLen% = Len(SalesMixRec)
  21.     KeyNum% = 0
  22.     SalesMixSt% = 0
  23.     SalesMixSt% = btrcall(BCLOSE, SalesMixPosBlk, SalesMixRec, SalesMixBufLen%, SalesMixKeyB$, SalesMixKeyBufLen%, KeyNum%)
  24. End Sub
  25.  
  26. Sub DeleteSalesMix ()
  27.       SalesMixKeyBufLen% = 255
  28.       SalesMixBufLen% = Len(SalesMixRec)
  29.       KeyNum% = 0
  30.       SalesMixSt% = 0
  31.       SalesMixSt% = btrcall(BDELETE, SalesMixPosBlk, SalesMixRec, SalesMixBufLen%, SalesMixKeyB$, SalesMixKeyBufLen%, KeyNum%)
  32. End Sub
  33.  
  34. Sub FirstSalesMix ()
  35.   If Len(SalesMixKeyB$) <> 6 Then
  36.     SalesMixKeyB$ = String$(6, " ")
  37.   End If
  38.   SalesMixKeyBufLen% = 255
  39.   SalesMixBufLen% = Len(SalesMixRec)
  40.   KeyNum% = 0
  41.   SalesMixSt% = 0
  42.   SalesMixSt% = btrcall(BFIRST, SalesMixPosBlk, SalesMixRec, SalesMixBufLen%, SalesMixKeyB$, SalesMixKeyBufLen%, KeyNum%)
  43. End Sub
  44.  
  45. Sub MsgSalesMixNotFound ()
  46.   Msg$ = "Sales Mix not found.  Status = " + Str$(SalesMixSt%)
  47.   T1% = MsgBox(Msg$, 0, "Warning!")
  48. End Sub
  49.  
  50. Sub MsgSalesMixNotOpen ()
  51.         Msg$ = "Sales Mix file not opened."
  52.         T1% = MsgBox(Msg$, 0, "Warning!")
  53. End Sub
  54.  
  55. Sub MsgUnknownSalesMixError ()
  56.   Msg$ = "Sales Mix file error.  Status = " + Str$(SalesMixSt%)
  57.   T1% = MsgBox(Msg$, 0, "Warning!")
  58. End Sub
  59.  
  60. Sub NextSalesMix ()
  61.   If Len(SalesMixKeyB$) <> 6 Then
  62.     SalesMixKeyB$ = String$(6, " ")
  63.   End If
  64.   SalesMixKeyBufLen% = 255
  65.   SalesMixBufLen% = Len(SalesMixRec)
  66.   KeyNum% = 0
  67.   SalesMixSt% = 0
  68.   SalesMixSt% = btrcall(BNEXT, SalesMixPosBlk, SalesMixRec, SalesMixBufLen%, SalesMixKeyB$, SalesMixKeyBufLen%, KeyNum%)
  69. End Sub
  70.  
  71. Sub OpenSalesMixFile ()
  72.     SalesMixKeyB$ = "salesmix.btr"
  73.     SalesMixKeyBufLen% = 255
  74.     SalesMixBufLen% = Len(SalesMixRec)
  75.     KeyNum% = 0
  76.     SalesMixSt% = 0
  77.     SalesMixSt% = btrcall(BOPEN, SalesMixPosBlk, SalesMixRec, SalesMixBufLen%, SalesMixKeyB$, SalesMixKeyBufLen%, KeyNum%)
  78.     If SalesMixSt% <> 0 Then
  79.       Msg$ = "Sales Mix file open failed. Status = " + Str$(SalesMixSt%)
  80.       T1% = MsgBox(Msg$, 0, "Warning!")
  81.     End If
  82. End Sub
  83.  
  84. Sub PreviousSalesMix ()
  85.   If Len(SalesMixKeyB$) <> 6 Then
  86.     SalesMixKeyB$ = String$(6, " ")
  87.   End If
  88.   SalesMixKeyBufLen% = 255
  89.   SalesMixBufLen% = Len(SalesMixRec)
  90.   KeyNum% = 0
  91.   SalesMixSt% = 0
  92.   SalesMixSt% = btrcall(BPREVIOUS, SalesMixPosBlk, SalesMixRec, SalesMixBufLen%, SalesMixKeyB$, SalesMixKeyBufLen%, KeyNum%)
  93. End Sub
  94.  
  95. Sub ReadSalesMix ()
  96.     SalesMixKeyB$ = SalesMixRec.RecNo
  97.     SalesMixKeyBufLen% = 255
  98.     SalesMixBufLen% = Len(SalesMixRec)
  99.     KeyNum% = 0
  100.     SalesMixSt% = 0
  101.     SalesMixSt% = btrcall(BEQUAL, SalesMixPosBlk, SalesMixRec, SalesMixBufLen%, SalesMixKeyB$, SalesMixKeyBufLen%, KeyNum%)
  102. End Sub
  103.  
  104. Sub UpdateSalesMix ()
  105.     SalesMixKeyBufLen% = 255
  106.     SalesMixBufLen% = Len(SalesMixRec)
  107.     KeyNum% = 0
  108.     SalesMixSt% = 0
  109.     SalesMixSt% = btrcall(BUPDATE, SalesMixPosBlk, SalesMixRec, SalesMixBufLen%, SalesMixKeyB$, SalesMixKeyBufLen%, KeyNum%)
  110. End Sub
  111.  
  112. Sub WriteSalesMix ()
  113.       SalesMixKeyBufLen% = 255
  114.       SalesMixBufLen% = Len(SalesMixRec)
  115.       KeyNum% = 0
  116.       SalesMixSt% = 0
  117.       SalesMixSt% = btrcall(BINSERT, SalesMixPosBlk, SalesMixRec, SalesMixBufLen%, SalesMixKeyB$, SalesMixKeyBufLen%, KeyNum%)
  118. End Sub
  119.  
  120.